0 A$(0)="ELITE"
1 A$(1)="PROPORTIONAL"
2 A$(2)="SCHMAL"
3 A$(3)="FETT"
4 A$(4)="DOPPEL"
5 A$(5)="BREIT"
6 A$(6)="KURSIV"
7 A$(7)="UNTERSTREICHEN"
8 :
10 N = 0
12 :
20 FOR I = 0 TO 7
30 : PRINT A$(I);" EINSCHALTEN <J/N>"
40 : POKE 198,0 : WAIT 198,1 : GET E$
50 : IF E$ = "J" THEN N = N + 2^I
70 NEXT I
80 PRINT " N =";N
100 OPEN 1,4,1
110 PRINT#1,CHR$(27);"!";CHR$(N);
120 PRINT#1," TEST 1234 "
130 CLOSE 1